CD-ROM Today (Latin America) Volume 1 #6/CD-ROM Today 6 Latam.iso/referenc/evol/database.dxr/00097_DoLoad.ls

Text File | 1996-11-08 | 1.5 KB | 62 lines

on loadArticle artName, bSupport
  global wColor, gScanCount
  cursor(4)
  set artIndex to BinarySearch(artName)
  if artIndex <= 0 then
    set secondTry to artName
    delete char -30000 of secondTry
    set artIndex to BinarySearch(secondTry)
  end if
  if artIndex > 0 then
    if not bSupport then
      TellMeToLoad(artIndex)
    else
      set wColor to 6
      TellSupportToLoad(artIndex)
    end if
  else
    beep()
  end if
  cursor(-1)
  if artName <> "CONTENTS" then
    set the visible of sprite gCornerCh() to 1
    resetScanTag()
  else
    set the visible of sprite gCornerCh() to 0
    set gScanCount to 32000
  end if
end

on TellSupportToLoad artIndex
  global gSupportWinName
  set bOpen to 0
  repeat with WinEntry in the windowList
    set bOpen to bOpen or (the name of WinEntry = gSupportWinName)
  end repeat
  if not bOpen then
    set the windowType of window gSupportWinName to 4
    set the rect of window gSupportWinName to rect(60, 60, 60 + 304, 60 + 261)
    open(window gSupportWinName)
  end if
  set bReady to 0
  repeat while not bReady
    set bReady to getPos(the windowList, window gSupportWinName)
  end repeat
  tell window gSupportWinName
    DisplayNewArticleSUPPORT(artIndex)
  end tell
  UpdateTrace(artIndex)
end

on TellMeToLoad artIndex
  global gSourceMem, gAutoBack
  set gAutoBack to EMPTY
  set gSourceMem to artIndex
  UpdateNarraList()
  UpdateTrace(artIndex)
  if gAutoBack <> EMPTY then
    loadArticle(gAutoBack, 1)
    set gAutoBack to EMPTY
  end if
end